home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 6
/
Publication_06_19xx_High-Tech_de_Side_A.d64
/
window-plotter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
557b
|
23 lines
10 poke53281,7:poke53280,2:print"[147]"chr$(14):rem bildschirm initialisieren
11 rem
12 rem koordinaten
13 rem
14 ax=10:ay=20
15 cx=20:cy=10
16 bx=cx:by=ay
17 dx=ax:dy=cy
18 rem
20 poke211,ax:poke214,ay:sys58732:print"[173]":poke211,bx:poke214,by:sys58732
21 print"[189]":poke211,cx:poke214,cy:sys58732:print"[174]":poke211,dx:poke214,dy
22 sys58732:print"[176]"
33 rem
34 forg=ax+1tobx-1:poke211,g:poke214,ay:sys58732:print"[192]":poke211,g:poke214,cy
35 sys58732:print"[192]":next:forg=dy+1toay-1:poke211,ax:poke214,g:sys58732
36 print"[221]":poke211,bx:poke214,g:sys58732:print"[221]":next
37 rem
38 poke211,12:poke214,14:sys58732:print"[215]indows":printtab(12)"auch in"
39 printtab(12)"[194][193][211][201][195] !"
40 rem
41 geta$:ifa$=""then41
42 print"[147]":list